home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / tec-vector-src.lha / robot.4bp < prev    next >
Encoding:
Text File  |  1994-09-24  |  14.0 KB  |  299 lines
  1. sizes:
  2. dc.w $02db,$02db,$01a3,$01a3,$008d,$0094,$008d,$0094
  3. dc.w $0135,$0145,$0135,$0145,$0361,$01c6,$0069,$01df
  4. dc.w $0395,$027a,$0361,$01c6,$0069,$01df,$0395,$027a
  5. dc.w $017c,$00f4,$0188,$00fd,$0161,$00f3,$017c,$00f4
  6. dc.w $0188,$00fd,$0161,$00f3,$0043,$0055,$0055,$0041
  7. dc.w $0050,$0050,$0046,$0044,$0041,$003c,$0048,$0059
  8. dc.w $0059,$0046,$0055,$0055,$0043,$0055,$0055,$0041
  9. dc.w $0050,$0050,$0046,$0044,$0041,$003c,$0048,$0059
  10. dc.w $0059,$0046,$0055,$0055,$0150,$01e9,$0079,$0111
  11. dc.w $0150,$01e9,$0079,$0111,$0437,$086a,$02ad,$0693
  12. dc.w $03d3,$03dd,$0110,$0120,$0154,$00f3,$04b0,$0857
  13. dc.w $0595,$041b,$010c,$01df,$068e,$0860
  14. points:    dc.w    [connect-data_3d]/6-1
  15.  
  16. data_3D:
  17. dc.w    0,9750,3000, -2000,11000,4500, -2000,11000,1500        ;  0- 2
  18. dc.w    -2000,11000,-1500, -2000,11000,-4500, 2000,11000,3500    ;  3- 5
  19. dc.w    2000,11000,2500, 2000,11000,-2500, 2000,11000,-3500    ;  6- 8
  20. dc.w    0,9750,-3000, 1000,10000,3000, 1000,10000,-3000        ;  9-11
  21. dc.w    4000,5000,3000, 4000,5000,-3000, 5000,3000,3000        ; 12-14
  22. dc.w    5000,3000,-3000, 6500,2000,3500, 6500,2000,2500        ; 15-17
  23. dc.w    6500,2000,-2500, 6500,2000,-3500, 5000,3000,3000    ; 18-20
  24. dc.w    5000,3000,-3000, 4000,-1000,3500, 4000,-1000,2500    ; 21-23
  25. dc.w    4000,-1000,-2500, 4000,-1000,-3500, 5000,-1000,3500    ; 24-26
  26. dc.w    5000,-1000,2500, 5000,-1000,-2500, 5000,-1000,-3500    ; 27-29
  27. dc.w    3500,-2000,3000, 3500,-2000,-3000, 5500,-2000,3000    ; 30-32
  28. dc.w    5500,-2000,-3000, 4500,-2000,4000, 4500,-2000,2000    ; 33-35
  29. dc.w    4500,-2000,-2000, 4500,-2000,-4000, 4000,-3000,3500    ; 36-38
  30. dc.w    4000,-3000,2500, 5000,-3000,3500, 5000,-3000,2500    ; 39-41
  31. dc.w    4000,-3000,-3500, 4000,-3000,-2500, 5000,-3000,-3500    ; 42-44
  32. dc.w    5000,-3000,-2500, -2000,-4750,3000, -2000,-4750,-3000    ; 45-47
  33. dc.w    0,-5000,3500, 0,-5000,2500, 0,-5000,-2500        ; 48-50
  34. dc.w    0,-5000,-3500, -3000,-5000,2500, -3000,-5000,-2500    ; 51-53
  35. dc.w    0,-3000,2400, 0,-3000,-2400, 5000,-5000,2425        ; 54-56
  36. dc.w    5000,-5000,-2425, 4000,-7000,2500, 4000,-7000,-2500    ; 57-59
  37. dc.w    -2500,-5143,1000, -2500,-5143,-1000, -700,-5771,1000    ; 60-62
  38. dc.w    -500,-5771,-1000, -3000,-7000,1500, -3000,-7000,-1500    ; 63-65
  39. dc.w    0,-7250,1400, 0,-7250,-1400, -4000,-6000,1400        ; 66-68
  40. dc.w    -4000,-6000,-1400, -6000,-7000,1700, -6000,-7000,-1700    ; 69-71
  41. dc.w    -5000,-11000,2500, -5000,-11000,-2500, 2000,-12000,2500    ; 72-74
  42. dc.w    2000,-12000,-2500, 3000,-7500,1400, 3000,-7500,-1400    ; 75-77
  43. dc.w    -10000,5000,-3500, -10000,5000,3500, -3000,-5000,3500    ; 78-80
  44. dc.w    -3000,-5000,-3500, 0,-3000,3500, 0,-3000,-3500        ; 81-83
  45. dc.w    4800,-5000,3500, 4800,-5000,-3500, 3800,-7000,3500    ; 84-86
  46. dc.w    3800,-7000,-3500, -4000,-5000,2500, -4000,-5000,-2500    ; 87-89
  47. dc.w    -6000,-5000,2500, -6000,-5000,-2500            ; 90-91
  48. connect:
  49.  
  50. * Feet
  51. dc.w    $0104,3,4,8,7,3, $0104,1,2,6,5,1
  52. dc.w    $0103,9,4,3,9, $0103,0,2,1,0
  53. dc.w    $0103,4,9,11,4, $0103,3,11,9,3, $0103,2,0,10,2, $0103,1,10,0,1
  54. dc.w    $0103,4,11,8,4, $0103,3,7,11,3, $0103,2,10,6,2, $0103,1,5,10,1
  55.  
  56. * Lower legs
  57. dc.w    $0203,19,8,11,19, $0204,15,19,11,13,15, $0203,18,19,15,18
  58. dc.w    $0204,18,15,13,11,18, $0203,7,18,11,7, $0204,19,18,7,8,19
  59. dc.w    $0203,17,6,10,17, $0204,14,17,10,12,14, $0203,16,17,14,16
  60. dc.w    $0204,16,14,12,10,16, $0203,5,16,10,5, $0204,17,16,5,6,17
  61.  
  62. * Midle legs
  63. dc.w    $0503,-78,25,21,13,25, $0503,-78,25,29,21,25
  64. dc.w    $0503,-78,24,13,21,24, $0503,-78,24,21,28,24
  65. dc.w    $0503,-78,25,13,24,25, $0503,29,28,21,29
  66. dc.w    $0503,-79,23,20,12,23, $0503,-79,23,27,20,23
  67. dc.w    $0503,-79,22,12,20,22, $0503,-79,22,20,26,22
  68. dc.w    $0503,-79,23,12,22,23, $0503,27,26,20,27
  69.  
  70. * Knees
  71. dc.w    $0103,37,29,25,37, $0103,37,33,29,37
  72. dc.w    $0103,37,44,33,37, $0103,37,42,44,37
  73. dc.w    $0103,37,31,42,37, $0103,37,25,31,37
  74. dc.w    $0103,29,33,28,29, $0103,33,44,45,33
  75. dc.w    $0103,24,31,25,24, $0104,42,43,45,44,42
  76. dc.w    $0103,36,24,28,36, $0103,36,28,33,36
  77. dc.w    $0103,36,33,45,36, $0103,36,45,43,36
  78. dc.w    $0103,36,43,31,36, $0103,36,31,24,36
  79.  
  80. dc.w    $0103,35,27,23,35, $0103,35,32,27,35
  81. dc.w    $0103,35,41,32,35, $0103,35,39,41,35
  82. dc.w    $0103,35,30,39,35, $0103,35,23,30,35
  83. dc.w    $0103,27,32,26,27, $0103,32,41,40,32
  84. dc.w    $0103,22,30,23,22, $0104,39,38,40,41,39
  85. dc.w    $0103,34,22,26,34, $0103,34,26,32,34
  86. dc.w    $0103,34,32,40,34, $0103,34,40,38,34
  87. dc.w    $0103,34,38,30,34, $0103,34,30,22,34
  88.  
  89. * Upper legs
  90. dc.w    $0504,-81,-83,-85,-87,51,42,31,47,51
  91. dc.w    $0504,-81,-83,-85,-87,50,47,31,43,50
  92. dc.w    $0503,-81,-83,-85,-87,50,51,47,50
  93. dc.w    $0504,-81,-83,-85,-87,51,50,43,42,51
  94. dc.w    $0504,-80,-82,-84,-86,49,39,30,46,49
  95. dc.w    $0504,-80,-82,-84,-86,48,46,30,38,48
  96. dc.w    $0503,-80,-82,-84,-86,48,49,46,48
  97. dc.w    $0504,-80,-82,-84,-86,49,48,38,39,49
  98.  
  99. * Torso
  100. dc.w    $0104,-88,-89,-90,-91,53,55,54,52,53, $0104,58,59,53,52,58
  101. dc.w    $0104,59,58,56,57,59, $0104,57,56,54,55,57
  102. dc.w    $0104,53,59,57,55,53, $0104,52,54,56,58,52
  103.  
  104. * Neck
  105. dc.w    $0604,-52,-53,-58,-59,65,67,63,61,65
  106. dc.w    $0604,-52,-53,-58,-59,67,66,62,63,67
  107. dc.w    $0604,-52,-53,-58,-59,64,65,61,60,64
  108. dc.w    $0604,-52,-53,-58,-59,64,60,62,66,64
  109.  
  110. * Head
  111. dc.w    $0304,72,73,71,70,72
  112. dc.w    $0304,74,75,73,72,74
  113. dc.w    $0304,75,74,76,77,75
  114. dc.w    $0304,77,76,64,65,77
  115. dc.w    $0304,65,64,68,69,65
  116. dc.w    $0304,70,71,69,68,70
  117. dc.w    $0307,71,73,75,77,67,65,69,71
  118. dc.w    $0307,76,74,72,70,68,64,66,76
  119. dc.w    -1
  120.  
  121. anim:
  122. dc.w 02,02,000,000,016
  123. dc.w  00000, 09750, 03000,    01000, 09750, 03000,    02000, 09750, 03000
  124. dc.w  03000, 09750, 03000,    04000, 09750, 03000,    05000, 09750, 03000
  125. dc.w  05000, 07750, 03000,    03000, 06750, 03000,    01000, 06750, 03000
  126. dc.w -01000, 06750, 03000,   -03000, 06750, 03000,   -04000, 08750, 03000
  127. dc.w -04000, 09750, 03000,   -03000, 09750, 03000,   -02000, 09750, 03000
  128. dc.w -01000, 09750, 03000
  129.  
  130. dc.w 02,02,001,000,016
  131. dc.w -02000, 11000, 04500,   -01000, 11000, 04500,    00000, 11000, 04500
  132. dc.w  01000, 11000, 04500,    02000, 11000, 04500,    03000, 11000, 04500
  133. dc.w  03000, 09000, 04500,    01000, 08000, 04500,   -01000, 08000, 04500
  134. dc.w -03000, 08000, 04500,   -05000, 08000, 04500,   -06000, 10000, 04500
  135. dc.w -06000, 11000, 04500,   -05000, 11000, 04500,   -04000, 11000, 04500
  136. dc.w -03000, 11000, 04500
  137.  
  138. dc.w 02,02,002,000,016
  139. dc.w -02000, 11000, 01500,   -01000, 11000, 01500,    00000, 11000, 01500
  140. dc.w  01000, 11000, 01500,    02000, 11000, 01500,    03000, 11000, 01500
  141. dc.w  03000, 09000, 01500,    01000, 08000, 01500,   -01000, 08000, 01500
  142. dc.w -03000, 08000, 01500,   -05000, 08000, 01500,   -06000, 10000, 01500
  143. dc.w -06000, 11000, 01500,   -05000, 11000, 01500,   -04000, 11000, 01500
  144. dc.w -03000, 11000, 01500
  145.  
  146. dc.w 02,02,003,008,016
  147. dc.w -02000, 11000,-01500,   -01000, 11000, -01500,   00000, 11000,-01500
  148. dc.w  01000, 11000,-01500,    02000, 11000, -01500,   03000, 11000,-01500
  149. dc.w  03000, 09000,-01500,    01000, 08000, -01500,  -01000, 08000,-01500
  150. dc.w -03000, 08000,-01500,   -05000, 08000, -01500,  -06000, 10000,-01500
  151. dc.w -06000, 11000,-01500,   -05000, 11000, -01500,  -04000, 11000,-01500
  152. dc.w -03000, 11000,-01500
  153.  
  154. dc.w 02,02,004,008,016
  155. dc.w -02000, 11000,-04500,   -01000, 11000, -04500,   00000, 11000,-04500
  156. dc.w  01000, 11000,-04500,    02000, 11000, -04500,   03000, 11000,-04500
  157. dc.w  03000, 09000,-04500,    01000, 08000, -04500,  -01000, 08000,-04500
  158. dc.w -03000, 08000,-04500,   -05000, 08000, -04500,  -06000, 10000,-04500
  159. dc.w -06000, 11000,-04500,   -05000, 11000, -04500,  -04000, 11000,-04500
  160. dc.w -03000, 11000,-04500
  161.  
  162. dc.w 02,02,005,000,016
  163. dc.w  02000, 11000, 03500,    03000, 11000,  03500,   04000, 11000, 03500
  164. dc.w  05000, 11000, 03500,    06000, 11000,  03500,   07000, 11000, 03500
  165. dc.w  07000, 09000, 03500,    05000, 08000,  03500,   03000, 08000, 03500
  166. dc.w  01000, 08000, 03500,   -01000, 08000,  03500,  -02000, 10000, 03500
  167. dc.w -02000, 11000, 03500,   -01000, 11000,  03500,   00000, 11000, 03500
  168. dc.w  01000, 11000, 03500
  169.  
  170. dc.w 02,02,006,000,016
  171. dc.w  02000, 11000, 02500,    03000, 11000,  02500,   04000, 11000, 02500
  172. dc.w  05000, 11000, 02500,    06000, 11000,  02500,   07000, 11000, 02500
  173. dc.w  07000, 09000, 02500,    05000, 08000,  02500,   03000, 08000, 02500
  174. dc.w  01000, 08000, 02500,   -01000, 08000,  02500,  -02000, 10000, 02500
  175. dc.w -02000, 11000, 02500,   -01000, 11000,  02500,   00000, 11000, 02500
  176. dc.w  01000, 11000, 02500
  177.  
  178. dc.w 02,02,007,008,016
  179. dc.w  02000, 11000,-02500,    03000, 11000, -02500,   04000, 11000,-02500
  180. dc.w  05000, 11000,-02500,    06000, 11000, -02500,   07000, 11000,-02500
  181. dc.w  07000, 09000,-02500,    05000, 08000, -02500,   03000, 08000,-02500
  182. dc.w  01000, 08000,-02500,   -01000, 08000, -02500,  -02000, 10000,-02500
  183. dc.w -02000, 11000,-02500,   -01000, 11000, -02500,   00000, 11000,-02500
  184. dc.w  01000, 11000,-02500
  185.  
  186. dc.w 02,02,008,008,016
  187. dc.w  02000, 11000,-03500,    03000, 11000, -03500,   04000, 11000,-03500
  188. dc.w  05000, 11000,-03500,    06000, 11000, -03500,   07000, 11000,-03500
  189. dc.w  07000, 09000,-03500,    05000, 08000, -03500,   03000, 08000,-03500
  190. dc.w  01000, 08000,-03500,   -01000, 08000, -03500,  -02000, 10000,-03500
  191. dc.w -02000, 11000,-03500,   -01000, 11000, -03500,   00000, 11000,-03500
  192. dc.w  01000, 11000,-03500
  193.  
  194. dc.w 02,02,009,008,016
  195. dc.w  00000, 09750,-03000,    01000, 09750,-03000,    02000, 09750,-03000
  196. dc.w  03000, 09750,-03000,    04000, 09750,-03000,    05000, 09750,-03000
  197. dc.w  05000, 07750,-03000,    03000, 06750,-03000,    01000, 06750,-03000
  198. dc.w -01000, 06750,-03000,   -03000, 06750,-03000,   -04000, 08750,-03000
  199. dc.w -04000, 09750,-03000,   -03000, 09750,-03000,   -02000, 09750,-03000
  200. dc.w -01000, 09750,-03000
  201.  
  202. dc.w 02,02,010,000,016
  203. dc.w  01000, 10000, 03000,    02000, 10000, 03000,    03000, 10000, 03000
  204. dc.w  04000, 10000, 03000,    05000, 10000, 03000,    06000, 10000, 03000
  205. dc.w  06000, 08000, 03000,    04000, 07000, 03000,    02000, 07000, 03000
  206. dc.w  00000, 07000, 03000,   -02000, 07000, 03000,   -03000, 09000, 03000
  207. dc.w -03000, 10000, 03000,   -02000, 10000, 03000,   -01000, 10000, 03000
  208. dc.w  00000, 10000, 03000
  209.  
  210. dc.w 02,02,011,008,016
  211. dc.w  01000, 10000,-03000,    02000, 10000,-03000,    03000, 10000,-03000
  212. dc.w  04000, 10000,-03000,    05000, 10000,-03000,    06000, 10000,-03000
  213. dc.w  06000, 08000,-03000,    04000, 07000,-03000,    02000, 07000,-03000
  214. dc.w  00000, 07000,-03000,   -02000, 07000,-03000,   -03000, 09000,-03000
  215. dc.w -03000, 10000,-03000,   -02000, 10000,-03000,   -01000, 10000,-03000
  216. dc.w  00000, 10000,-03000
  217.  
  218. dc.w 02,02,012,000,016
  219. dc.w  04000, 05000, 03000,    04300, 05000, 03000,    04600, 05000, 03000
  220. dc.w  04900, 05000, 03000,    05200, 05000, 03000,    05500, 05000, 03000
  221. dc.w  05500, 05000, 03000,    04600, 05000, 03000,    03300, 05000, 03000
  222. dc.w  02100, 05000, 03000,    01400, 05000, 03000,    02000, 05000, 03000
  223. dc.w  02800, 05000, 03000,    03100, 05000, 03000,    03400, 05000, 03000
  224. dc.w  03700, 05000, 03000
  225.  
  226. dc.w 02,02,013,008,016
  227. dc.w  04000, 05000,-03000,    04300, 05000,-03000,    04600, 05000,-03000
  228. dc.w  04900, 05000,-03000,    05200, 05000,-03000,    05500, 05000,-03000
  229. dc.w  05500, 05000,-03000,    04600, 05000,-03000,    03300, 05000,-03000
  230. dc.w  02100, 05000,-03000,    01400, 05000,-03000,    02000, 05000,-03000
  231. dc.w  02800, 05000,-03000,    03100, 05000,-03000,    03400, 05000,-03000
  232. dc.w  03700, 05000,-03000
  233.  
  234. dc.w 02,02,014,000,016
  235. dc.w  05000, 03000, 03000,    05150, 02800, 03000,    05300, 02600, 03000
  236. dc.w  05450, 02400, 03000,    05600, 02200, 03000,    05750, 02000, 03000
  237. dc.w  05750, 00200, 03000,    05400,-00600, 03000,    05150, 00000, 03000
  238. dc.w  05100, 00800, 03000,    05050, 02200, 03000,    04000, 03000, 03000
  239. dc.w  04200, 03000, 03000,    04400, 03000, 03000,    04600, 03000, 03000
  240. dc.w  04800, 03000, 03000
  241.  
  242. dc.w 02,02,015,008,016
  243. dc.w  05000, 03000,-03000,    05150, 02800,-03000,    05300, 02600,-03000
  244. dc.w  05450, 02400,-03000,    05600, 02200,-03000,    05750, 02000,-03000
  245. dc.w  05750, 00200,-03000,    05400,-00600,-03000,    05150, 00000,-03000
  246. dc.w  05100, 00800,-03000,    05050, 02200,-03000,    04000, 03000,-03000
  247. dc.w  04200, 03000,-03000,    04400, 03000,-03000,    04600, 03000,-03000
  248. dc.w  04800, 03000,-03000
  249.  
  250. dc.w 02,02,016,000,016
  251. dc.w  06500, 01500, 03500,    06550, 01400, 03500,    06600, 01300, 03500
  252. dc.w  06620, 01200, 03500,    06640, 01100, 03500,    06650, 01000, 03500
  253. dc.w  06600,-00800, 03500,    06600,-01600, 03500,    06650,-01000, 03500
  254. dc.w  06600,-00400, 03500,    06550, 02000, 03500,    05500, 02000, 03500
  255. dc.w  05800, 01900, 03500,    06100, 01800, 03500,    06300, 01700, 03500
  256. dc.w  06400, 01600, 03500
  257.  
  258. dc.w 02,02,017,000,016
  259. dc.w  06500, 01500, 02500,    06550, 01400, 02500,    06600, 01300, 02500
  260. dc.w  06620, 01200, 02500,    06640, 01100, 02500,    06650, 01000, 02500
  261. dc.w  06600,-00800, 02500,    06600,-01600, 02500,    06650,-01000, 02500
  262. dc.w  06600,-00400, 02500,    06550, 02000, 02500,    05500, 02000, 02500
  263. dc.w  05800, 01900, 02500,    06100, 01800, 02500,    06300, 01700, 02500
  264. dc.w  06400, 01600, 02500
  265.  
  266. dc.w 02,02,018,008,016
  267. dc.w  06500, 01500,-02500,    06550, 01400,-02500,    06600, 01300,-02500
  268. dc.w  06620, 01200,-02500,    06640, 01100,-02500,    06650, 01000,-02500
  269. dc.w  06600,-00800,-02500,    06600,-01600,-02500,    06650,-01000,-02500
  270. dc.w  06600,-00400,-02500,    06550, 02000,-02500,    05500, 02000,-02500
  271. dc.w  05800, 01900,-02500,    06100, 01800,-02500,    06300, 01700,-02500
  272. dc.w  06400, 01600,-02500
  273.  
  274. dc.w 02,02,019,008,016
  275. dc.w  06500, 01500,-03500,    06550, 01400,-03500,    06600, 01300,-03500
  276. dc.w  06620, 01200,-03500,    06640, 01100,-03500,    06650, 01000,-03500
  277. dc.w  06600,-00800,-03500,    06600,-01600,-03500,    06650,-01000,-03500
  278. dc.w  06600,-00400,-03500,    06550, 02000,-03500,    05500, 02000,-03500
  279. dc.w  05800, 01900,-03500,    06100, 01800,-03500,    06300, 01700,-03500
  280. dc.w  06400, 01600,-03500
  281.  
  282. dc.w 02,02,020,000,016
  283. dc.w  05000, 03000, 03000,    05300, 03000, 03000,    05500, 03000, 03000
  284. dc.w  05700, 03000, 03000,    05800, 03000, 03000,    05850, 03000, 03000
  285. dc.w  05850, 03000, 03000,    05300, 03000, 03000,    04200, 03400, 03000
  286. dc.w  03500, 03400, 03000,    03000, 03600, 03000,    03400, 03800, 03000
  287. dc.w  03800, 03600, 03000,    04200, 03400, 03000,    04400, 03200, 03000
  288. dc.w  04700, 03000, 03000
  289.  
  290. dc.w 02,02,021,008,016
  291. dc.w  05000, 03000,-03000,    05300, 03000,-03000,    05500, 03000,-03000
  292. dc.w  05700, 03000,-03000,    05800, 03000,-03000,    05850, 03000,-03000
  293. dc.w  05850, 03000,-03000,    05300, 03000,-03000,    04200, 03400,-03000
  294. dc.w  03500, 03400,-03000,    03000, 03600,-03000,    03400, 03800,-03000
  295. dc.w  03800, 03600,-03000,    04200, 03400,-03000,    04400, 03200,-03000
  296. dc.w  04700, 03000,-03000
  297.  
  298. dc.w -1
  299.